# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/solidecho"
;solidecho (TopSpin 2.0)
;
;TS3 / 03.06.2011
;
;checked by SEWE 03.06.2011
;
;
;90-90 solid echo sequence for wide line observation
;
;set d6 to 5-100usec depending on dead time
;set d7 shorter than d6 by 3usec plus 10 dw to make
;sure the evolution of the echo is obvserved, then left shift
;FID prior to ft to get smallest possible 1st order pohase correction
;set receiver phase either with phcor0 or with HPCU receiver phase
;to get maximum signal in ADC channel A and almost no signal in channel B
;for minimum 0 order phase correction (no signal in channel B  is only
;possible if O1 exactly in center and spectrum perfectly symmetric).
;phase cycle will cancel deadtime partially, but not perfectly
;
;
;parameters:
;pl1 : X power level for 90
;p1 : X 90 degree pulse
;d1 : recycle delay
;d6 : echo delay
;d7 : =0, or no longer than d6-de
;ns : = 8*n
;
;
;$CLASS=Solids
;$DIM=1D
;$TYPE=direct excitation
;$SUBTYPE=simple 1D
;$COMMENT=90-90 solid echo sequence for wide line observation

# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl" 1
;Avancesolids.incl
;   for TCU3
;
;version 1 28.2.2001, written by HF
;	   4.4.2006, complemented by Ste

;$CLASS=Solids INCL
;$COMMENT=definitions for setrtp and setnmr
# 10 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;switch between 1H or 19F output (H amplifier) 


# 14 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;gating pulse for RX, ADC and HPPR auto mode


# 18 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;explicit blanking of preamp, receiver, adc, not implemented yet


# 26 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;generate dwell clock


;turn dwell clock on/off
# 32 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;


# 36 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;define data sampling for WAHUHA type experiments, samples analogue or digitally for d9, closes receiver


# 40 "/opt/topspin3.2/exp/stan/nmr/lists/pp/Avancesolids.incl"
;explicit transmitter blanking, not supported yet

;NCO switching, to be implemented

;$id: $
# 36 "/opt/topspin3.2/exp/stan/nmr/lists/pp/solidecho" 2
# 38 "/opt/topspin3.2/exp/stan/nmr/lists/pp/solidecho"
;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=0"

# 1 "mc_line 41 file /opt/topspin3.2/exp/stan/nmr/lists/pp/solidecho dc-measurement inserted automatically"

    dccorr
# 41 "/opt/topspin3.2/exp/stan/nmr/lists/pp/solidecho"
1 ze
2 d1
  (p1 pl1 ph1):f1
  d6
  (p1 ph2):f1
  d7
  go=2 ph31 
  wr #0
exit

ph0=0
ph1= 0 3 2 1 0 3 2 1
ph2= 3 2 1 0 1 0 3 2
ph31= 3 2 1 0 3 2 1 0
# 57 "/opt/topspin3.2/exp/stan/nmr/lists/pp/solidecho"
;$id: $
